10 PRINT : PRINT "EXAMPLE 4.9-3 SOL OF SYSTEM FOR Q WITH MINOR LOSSES": PRINT
20 DEFINT I: READ D, NU, EPS, L, HF, K, G, PI, F  'F  IS ASSUMED
30 DATA 2.,.00002,.0004,20000.,120.,14.,32.2,3.1416,.022
40 PRINT : PRINT "D,NU,EPS,L="; D; NU; EPS; L
50 PRINT : PRINT "HF,K,G,PI,F="; HF; K; G; PI; F: PRINT
60 PRINT "          F           Q          R": PRINT
70 R0 = 1.784 * NU / D: R1 = EPS / (3.7 * D): R2 = -.9650001 * D ^ 2: R3 = G * D * HF / L
80 R4 = K * D / L: R5 = 4! / (PI * D * NU): R6 = 4.74: R7 = 1.325  'USE IN EQ(4.9.7)
90 FOR I = 1 TO 4:  Y = SQR(R3 / (1! + R4 / F))
100 Q = R2 * Y * LOG(R1 + R0 / Y): R = R5 * Q: F = R7 / (LOG(R1 + R6 / R ^ .9)) ^ 2
110 PRINT USING "   ##.#####"; F; : PRINT USING "   ###.### "; Q;
120 PRINT USING "  #######.##"; R
130 NEXT I